home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1993…ch: Other People's Memory / ADC Developer CD (1993-03) (''Other People's Memory'')_iso / Dev.CD Mar 93.iso / Development Platforms / LISP Related / LISP Goodies / menu enhancements / load-menus.lisp < prev    next >
Encoding:
Text File  |  1992-09-02  |  950 b   |  28 lines  |  [TEXT/CCL2]
  1. (in-package cl-user)
  2. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3. ;; load-menus.lisp
  4. ;;
  5. ;; Copyright © 1992 University of Toronto, Department of Computer Science
  6. ;; All Rights Reserved
  7. ;;
  8. ;; author: Mark A. Tapia
  9. ;; 
  10. ;; Edit this file and change the directory structure if the
  11. ;; menu enhancements are not stored in the "menu enhancements" folder 
  12. ;; in the main CCL directory
  13. ;;
  14. ;; Load this file when running MCL2.0 final 
  15. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  16. (defparameter mcl-final t)
  17. (defparameter menu-dir nil)
  18.  
  19. (setf (logical-pathname-translations "menu-dir")
  20.       (list (list (concatenate 'string "menu-dir:**;*.*")
  21.                   (concatenate 'string "ccl:menu enhancements;**;*.*"))))
  22. (setq menu-dir "menu-dir:")
  23. (load (format nil "~amake-menus.lisp" menu-dir))
  24. (set-mac-default-directory (mac-directory-namestring menu-dir))
  25.  
  26. (use-package 'menus)
  27. (menus::load-menus)
  28.